home *** CD-ROM | disk | FTP | other *** search
/ Amiga Mag HDD Backup / Amiga Mag HDD Backup.zip / Amiga Mag HDD Backup / Alexander.img.bin / Alexander.img / 315 2 files Archive.sit / Any plain-text files / ? Any plain-text file 87 < prev    next >
Text File  |  1995-01-03  |  3KB  |  2 lines
  1. Listing 3. Listing of CDADETextReader.ziDeck "CDADETextReader"  Card "TextReader"    BeforeAttachment      Nop ;The following lines are directives to CD_ADE      Let CD_ADE_Version = "" ; version 1.00      Nop ; CD_ADE_Icons = TRUE      If Invocation=0        MakeDocument "TextDoc"        Let WW=320        Let WH=200        Let WX=108        Let WY=44      EndIf      Let Invocation=1    EndScript    AfterAttachment      SetWindowLimits 200,100,9999,9999    EndScript    Window "UserWindow"      Definition        Origin WX,WY        Size WW,WH        Title "CD_ADE Text File Reader"        NumberOfColors 4,69632        DefaultColors 0,1,0        WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR SIZEBUTTON         WindowFlags ACTIVATE TOFRONT WORKBENCH         VisualEffects NONE ,WAIT       EndScript      OnCloseButton        Quit      EndScript      OnResized        Let WX=WindowX        Let WY=WindowY        Let WW=WindowWidth        Let WH=WindowHeight        GotoCard "TextReader"      EndScript    EndObj    Memo "FileMemo"      Definition        Origin 10,16        Size WindowWidth-35,WindowHeight-50        Font "topaz",8        Style PLAIN ,2,3        TextColors 1,0,JAM2         Border DOUBLEBEVEL ,2,1        MemoDocument "TextDoc"        ScrollBars RIGHT         InputStyle NORMAL       EndScript    EndObj    TextButton "SelectFile"      Definition        Origin (WindowWidth%2)-95,WindowHeight-20        Font "topaz",11        Style BOLD SHADOW ,2,3        TextColors 1,0,JAM1         Text " Select File to View "        Border BEVEL ,2,1        Highlight COMPLEMENT         ButtonFlags NONE       EndScript      OnRelease        Let Heading="Select a text file to view"        Let FNNew=AskForFileName(FN,Heading,WindowX+100,WindowY+100)        If FNNew<>""          Let FN=FNNew          OpenFile FN,"FileBuf",READONLY ,OLDFILE           GetFileInfo FN,FNSize          FileReadChars "FileBuf",TextVar,FNSize          Close "FileBuf"          Clear DOCUMENT           Type TextVar          MoveCursorTo STARTOF DOCUMENT         EndIf      EndScript    EndObj  EndObjEndObj⌐╝ê"bé"ê¡╗\(ê r╩Σá┬é█/╬b╘⌡╕╨:É$2ä▐╬«⌐┌┬    Oô╠≡·Çä ±b┘a¬ P┬A╫ûÉá*PJ≡%Pí│uF@T╡=₧ä+ê╩4(╒φ┌äPu¬░╕»╦⌡Aútuá▓█U²'`╓4⌡╕æR≈[GE═WúV¬(┌*Ç╖ö÷*╧é("ô▄óà»á≈jáµT[ΓΦS¡á?═⌠▒╢5!?YS"ê╓)é│5ª Z│áúu│W°èæÇ"*'úc╜╠[Γ=DBL&F⌐^öαüô▒»  `87Ω_Pº :bêfu5Z£9╞▓aL└(
  2. █T²╣L╘Öªær"⌡e\ÿúÇÑd£jΦ¼æ1à2Σ▐╚≥]H«tÑäÅ╪½:╦ÿµ╔0+bä╡ó¡Y÷½Y&÷┌╦ÿnùφG╡╠Ü5A∩Çrp9LäΓNà₧û1█åß¡=£m°ΘΩ.τ]╕]éφxl╝π╣K╬σ┴≡